home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / aa_login.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  1.7 KB  |  74 lines
  1. <%
  2. %>
  3. <%
  4.     dim login_form_sql
  5.  
  6. sub request_login_form
  7. ''' request expected input parameters for this form
  8.     user_name = request("user_name")
  9.     password = request("password")
  10.     submit = request("submit")
  11.     registerlink = request("registerlink")
  12. end sub
  13.  
  14. sub validate_login_form
  15. ''' request and validate data entered from this form
  16.     user_name = trim(request("user_name"))
  17.     if user_name = "" then
  18.         error_list.add "485220","username must be specified."
  19.         b_error = true
  20.     end if
  21.     password = trim(request("password"))
  22.     if password = "" then
  23.         error_list.add "485221","password must be specified."
  24.         b_error = true
  25.     end if
  26.     submit = trim(request("submit"))
  27.     registerlink = trim(request("registerlink"))
  28. end sub
  29.  
  30. sub get_defaults_login_form
  31. ''' set default values for this form
  32.     submit = "LOGIN"
  33.     registerlink = "click here to register"
  34. end sub
  35.  
  36.  
  37. do_search = request("do_search")
  38. ''' request form keys
  39. ''' request action
  40. action = lcase(request("action"))
  41. ''' action case handler
  42. select case action
  43.  
  44. end select
  45.  
  46. '  no action was specified, so handle the default case(s)
  47. get_defaults_login_form
  48.  
  49. %>
  50.  
  51.  
  52. <table  >
  53. <form name="login_form" action="" method="POST" >
  54. <tr>
  55.     <td class='dataTD' >
  56.         <input type=text  name="user_name" size="" maxlength="" value="<% =user_name%>">
  57.     </td>
  58.     <td class='dataTD' >
  59.         <input type=password name="password" size="" maxlength="" value="<% =password %>">
  60.     </td>
  61.     <td class='dataTD' >
  62.         <input class=cmd  type=submit name="submit" value="LOGIN" >
  63.     </td>
  64.     <td class='dataTD' >
  65.         <a href="register.asp"><% =registerlink %></a>
  66.     </td>
  67. </tr>
  68. <input type=hidden name="do_search" value="1">
  69.  
  70. </form>
  71. </table>
  72.  
  73.  
  74.